10 REM CIO CALL TO LOAD DATA FROM ANY FILE - DAN PINAL›20 POKE 106,PEEK(106)-8:GRAPHICS 0:REM MOVE RAMTOP DOWN 2K›30 DIM Q$(14),F$(14):F$="D:":REM ASSUME A DISK LOAD›40 CB=PEEK(106)+4:SET=CB*256:CALL=1536›45 REM POKE IN MACHINE LANGUAGE ROUTINE INTO PAGE 6›50 FOR L1=0 TO 48:READ X:POKE 1536+L1,X:NEXT L1›60 ? "NAME OF FILE TO LOAD";:INPUT Q$:F$(3)=Q$›65 REM SET PARAMETERS FOR OPEN ROUTINE AND USR CALL›70 IOCB=1:IO=4:CMD=ADR("L"):LENGTH=1024›80 OPEN #IOCB,IO,0,F$›90 U=USR(CALL,IOCB,SET,LENGTH,CMD)›100 REM THAT'S IT. POKE 756,CB TO TURN ON YOUR SET›110 FOR L1=0 TO 255:? CHR$(27);CHR$(L1);:NEXT L1:POKE 756,CB›10000 DATA 104,104,104,10,10,10,10,170,104,157,69,3,104,157,68›10005 DATA 3,104,157,73,3,104,157,72,3,104›10010 DATA 133,213,104,133,212,160,0,177,212,160,7,201,83,208›10015 DATA 2,160,11,152,157,66,3,76,86,228›10020 REM OPEN #IOCB,IO,0,FILE$:X=USR(CIO,IOCB,BUFADR,BUFLEN,ADR("S" or"L"))›